home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / Participation.as_ / Participation.as
Text File  |  1998-12-15  |  3KB  |  100 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <HTML>
  4. <HEAD>
  5. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  6. <META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
  7. <TITLE>401(k) Employee Participation</TITLE>
  8. </HEAD>
  9. <BODY>
  10.  
  11. <CENTER>
  12. <TABLE BORDER=0 WIDTH=90%>
  13. <TR>
  14.     <TD WIDTH=226>
  15.         <IMG SRC="./images/status.gif" WIDTH=214 HEIGHT=37 BORDER=0>    
  16.     </TD>
  17.     <TD>
  18.     </TD>
  19. </TR>
  20. </TABLE>
  21.  
  22. <BR>
  23.  
  24. <TABLE BORDER=0 CELLSPACING=3 CELLPADDING=3 WIDTH="90%">
  25.     <CAPTION>
  26.         <FONT SIZE="6" FACE="Arial" COLOR="Black">Employee Participation</FONT>
  27.     </CAPTION>
  28. <TR>
  29.     <TD> <FONT SIZE="4" FACE="Arial" COLOR="Black">Name</FONT> </TD>
  30.     <TD> <FONT SIZE="4" FACE="Arial" COLOR="Black">Soc. Security</FONT></TD>
  31.     <TD> <FONT SIZE="4" FACE="Arial" COLOR="Black">Participation</FONT></TD>
  32.     <TD> <FONT SIZE="4" FACE="Arial" COLOR="Black">Salary</FONT></TD>
  33.     <TD ALIGN="RIGHT"> <FONT SIZE="4" FACE="Arial" COLOR="Black">Fund graph</FONT></TD>
  34. </TR>
  35.  
  36. <%
  37. Set DataConn = Server.CreateObject("ADODB.Connection")
  38. DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
  39. DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
  40. DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
  41. Set cmdTemp = Server.CreateObject("ADODB.Command")
  42. Set DataRangeHdr = Server.CreateObject("ADODB.Recordset")
  43. cmdTemp.CommandText = "SELECT * FROM EmployeeInfo ORDER BY LastName ASC"
  44. cmdTemp.CommandType = 1
  45. Set cmdTemp.ActiveConnection = DataConn
  46. DataRangeHdr.Open cmdTemp, , 0, 1
  47.  
  48. On Error Resume Next
  49. If DataRangeHdr.BOF And DataRangeHdr.EOF Then 
  50.     fEmptyRecordset = True
  51. Else
  52.     fEmptyRecordset = False
  53. End if
  54.  
  55. fFirstPass = True
  56. DataRangeHdr.MoveFirst
  57. Do
  58.     If fEmptyRecordset Then Exit Do
  59.     If Not fFirstPass Then
  60.         DataRangeHdr.MoveNext
  61.     Else
  62.         fFirstPass = False
  63.     End If
  64.     If DataRangeHdr.EOF Then Exit Do
  65. %>
  66.  
  67. <TR>
  68.     <TD> <%= DataRangeHdr("LastName") & ", " & DataRangeHdr("FirstName") %> </TD>
  69.     <TD> <%= DataRangeHdr("SSNum") %></TD>
  70.     <TD> <%= DataRangeHdr("Participant") %></TD>
  71.     <TD> <%= DataRangeHdr("Salary") %></TD>
  72.     <%  If DataRangeHdr("Participant") = "Y" Then
  73.             empID = DataRangeHdr("EmployeeID")
  74.             empName = DataRangeHdr("FirstName") & "+" & DataRangeHdr("LastName")
  75.             Response.Write("<TD ALIGN=""RIGHT"">")
  76.             Response.Write("<A HREF=""EmployeeProfile.asp?empID=" & cstr(empID) & "&" & "empName=" & empName & """>")
  77.             Response.Write("<IMG SRC=""./images/view.gif"" WIDTH=73 HEIGHT=18 BORDER=0>")
  78.             Response.Write("</A></TD>")
  79.         Else
  80.             Response.Write("<TD></TD>")
  81.         End If
  82.     %>
  83. </TR>
  84.  
  85. <%
  86. Loop
  87. %>
  88.  
  89. <TR><TD ALIGN="RIGHT" COLSPAN=5>
  90.     <A HREF="ParticipationGraph.asp">
  91.         <IMG SRC="./images/overview.gif" WIDTH=223 HEIGHT=18 BORDER=0>
  92.     </A>
  93. </TD></TR>
  94. </TABLE>
  95.  
  96. </CENTER>
  97.  
  98. </BODY>
  99. </HTML>
  100.